home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00044_Play Test Animation.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  703 b   |  21 lines
  1. on mouseUp
  2.   activeSprite = getActiveCharacter()
  3.   if activeSprite then
  4.     charSprite = sprite(activeSprite)
  5.     charSprite.pStatus = #greeted
  6.     charSprite.pTurnOffAnim = VOID
  7.     charSprite.pAnimating = 0
  8.     if count(currentActions()) then
  9.       action = currentActionName()
  10.       steps = currentActionSteps()
  11.       charSprite.pActionList = [[#action: action, #turnOffAnim: 0]]
  12.       charSprite.pWaitForVO = 0 - 1
  13.       sendSprite(activeSprite, #stopSound)
  14.       pLabels = charSprite.pLabels
  15.       sendSprite(activeSprite, #nextAnim, [[#action: action, #turnOffAnim: VOID]], steps)
  16.     end if
  17.   else
  18.     MUIalert("Add a character to the bar using the 'person' icon at the lower left")
  19.   end if
  20. end
  21.